# prep_l <- prep_multi_line(spl[[6]], con)
# cat(" \n####", "Indeksi industrijske proizvodnje - področja")
# dygraph_plotter(prep_l)
#
# cat("$$$$")
#
# cat(" \n")
# prep_l <- prep_multi_line(spl[[8]], con)
# cat(" \n####", "Indeksi industrijske proizvodnje - področja - desezonirani")
# dygraph_plotter(prep_l)
#
# cat("$$$$")
#
# cat(" \n")
#
# prep_l <- prep_multi_line(spl[[7]], con)
# cat(" \n####", "Indeksi industrijske proizvodnje - zahtevnost")
# dygraph_plotter(prep_l)
#
# cat("$$$$")
#
# cat(" \n")
# prep_l <- prep_multi_line(spl[[9]], con)
# cat(" \n####", "Indeksi industrijske proizvodnje - zahtevnost - desezonirani")
# dygraph_plotter(prep_l)
#
#
#
#
# prep_l <- prep_multi_line(spl[[10]], con)
# cat(" \n####", "Realni indeks opravljenih del v gradbeništvu")
# dygraph_plotter(prep_l)
#
# cat("$$$$")
#
# cat(" \n")
#
# prep_l <- prep_multi_line(spl[[11]], con)
# cat(" \n####", "Realni indeks opravljenih del v gradbeništvu - desezonirani")
# dygraph_plotter(prep_l)
#
#
#
# cat("$$$$")
#
# cat(" \n")
#
# prep_l <- prep_multi_line(spl[[42]], con)
# prep_l2 <- prep_multi_line(spl[[43]], con)
# purrr::reduce(prep_l2$data_points, dplyr::left_join, by = c("period_id", "period")) %>%
# dplyr::relocate( period) |>
# dplyr::select(-dplyr::starts_with("raw")) |>
# dplyr::select(-period_id) -> data
# colnames(data)[-1] <- prep_l2$legend_labels
#
# prep_l$data_points[[1]] |>
# left_join(data, by = "period") -> x
# cat(" \n####", "Prispevki agregatov potrošnje k rasti BDP ")
# dygraph_plotter(prep_l)
#